home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Original Shareware 1.1
/
The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso
/
18
/
fpc103.zip
/
MONOCROM.SEQ
< prev
next >
Wrap
Text File
|
1987-11-25
|
1KB
|
36 lines
\ MONOCROM.SEQ Monochrome support words by Tom Zimmer
\ Video attribute control mechanism for monochrome by Tom Zimmer
HEX
: >NONE ( --- ) 07 ATTRIB C! ; \ NORMAL
: >UL ( --- ) 01 ATTRIB C! ; \ UNDERLINE
: >REV ( --- ) 78 ATTRIB C! ; \ REVERSE
: >BOLD ( --- ) 7F ATTRIB C! ; \ BRIGHT
: >BOLDUL ( --- ) 79 ATTRIB C! ; \ BOLD UNDERLINE
: >BOLDBLNK ( --- ) 8F ATTRIB C! ; \ BOLD BLINK
: >REVBLNK ( --- ) F0 ATTRIB C! ; \ REVERSE BLINK
\ Some extra words, not loaded for now.
\ : >BOLDBLNKUL ( --- ) 89 ATTRIB C! ; \ BOLD BLINK & UNDERLINE
\ : >BLINK ( --- ) 87 ATTRIB C! ; \ BLINK
\ : >BLANK ( --- ) 00 ATTRIB C! ; \ BLANK, NO DISPLAY
' >NONE IS >NORM
>NORM \ Default to Normal video.
: >MONO ( --- ) \ Select hilighting for monochrome monitor.
['] >UL IS >ATTRIB1
['] >BOLDUL IS >ATTRIB2
['] >BOLD IS >ATTRIB3
['] >REV IS >ATTRIB4 ; >MONO
' >MONO IS INITMONO \ Enable attributes according to video board.
' >MONO IS INITCOLOR \ Enable attributes SAME AS MONO FOR NOW.
DECIMAL